home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / grafik / 3d & render tools / irit / contrib / scripts / cup.irt < prev    next >
Encoding:
Text File  |  1996-07-16  |  626 b   |  35 lines
  1. resolution = 20;
  2. include ("cupglass.irt");
  3. include ("cupplate.irt");
  4. include ("cupspoon.irt");
  5.  
  6. angle_y = -30;
  7. rotate_it = rotY(angle_y);
  8. shift_it = Trans ( Vector ( 0, 0, 0.1*sin(angle_y) ) );
  9. spoon1 = spoon * rotate_it;
  10. spoon1 = spoon1 * shift_it;
  11. spoon1 = spoon1 * RotZ ( 90 );
  12.  
  13.  
  14. cervise = list ( glass, plate, spoon1 );
  15. view ( cervise, true );
  16.  
  17. comment $
  18. spoon1 = spoon * Trans ( Vector ( -0.85, 0, 0 ) ) * rotate_it;
  19.  
  20. for (i=0,45,360,
  21.  
  22.     spoon2 = spoon1 * RotZ(i):    
  23.     spoon2 = spoon2 * shift_it:
  24.     view ( spoon2, true )
  25. );
  26.  
  27. pause(true);
  28.  
  29. $
  30.  
  31. #save ( "cervise.dat", list ( view_mat, cervise ) );
  32. #exit();
  33.  
  34. #view(spoon,false);
  35.